home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
utility
/
af0_32b.zip
/
AFDEINST.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-10-18
|
1KB
|
58 lines
/**/
call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
call SysLoadFuncs
Call SysCls
Say
Say " AF - The Archive Folder - Deinstallation program"
Say " ================================================"
Say
Say " This script will destroy the Archive Folder program object and all"
Say " the associations and templates Archive Folder uses."
Say
Call charout, " Do you want to continue? (y/N): "
answer = SysGetKey(echo)
if answer <> "Y" & answer <> "y" then return
id.0 = 8
id.1 = "<AF_ARJ_TEMPLATE>"
id.2 = "<AF_ZIP_TEMPLATE>"
id.3 = "<AF_ARC_TEMPLATE>"
id.4 = "<AF_RAR_TEMPLATE>"
id.5 = "<AF_LZH_TEMPLATE>"
id.6 = "<AF_TEMPS>"
id.7 = "<AF>"
id.8 = "<AF_REG>"
id.9 = "<AF_FOLDER>"
say
Do i = 1 To id.0
if SysDestroyObject( id.i ) then
Say " "id.i "successfully destroyed"
else
Say " Error destroying" id.i
End
if SysIni( 'USER', "PMWP_ASSOC_TYPE", "Archive", 'DELETE:' ) = '' Then
Say " Removed Archive file type"
else
Say " Error removing Archive file type"
if SysIni( 'USER', "AF", 'DELETE:' ) = '' Then
Say " Removed AF entry in OS2.INI"
else
Say " Error removing AF entry in OS2.INI"
Say
Say " Now you can delete the installation directory to remove"
Say " The Archive Folder entirely."
Say
'@pause'